home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- NewMode = FGbestmode(320,200,1)
- IF NewMode < 0 OR NewMode = 12 THEN
- PRINT "This program requires a 320 x 200 color graphics mode."
- STOP
- END IF
- OldMode = FGgetmode
- FGsetmode NewMode
-
- FGvbinit
- SetMemStatus& = SETMEM(-(160*100+16))
- Handle = FGvballoc(160,100)
- Status = FGvbopen(Handle)
-
- FGsetcolor 7
- FGfillpage
- FGsetcolor 9
- FGlocate 6, 6
- FGtext "quadrant", 8
- FGvbpaste 0, 159, 0, 99, 0, 99
- FGwaitkey
-
- FGtcdefine 9, 1
- FGvbtcxfer 0, 159, 0, 99, 160, 99
- FGvbtcxfer 0, 159, 0, 99, 0, 199
- FGvbtcxfer 0, 159, 0, 99, 160, 199
- FGwaitkey
-
- FGvbclose
- FGvbfree Handle
- FGsetmode OldMode
- FGreset
- END